exercise, part of the course cma (mainly based on Laube (2014 ) )
Abstract
This Document gives a brief overview over some houses of the GOT series (Section 1 ) and an short Analysis (Section 2 ) of the top 10 characters with the most screentime
Overview Houses of GOT Series
See Coat of Arms of different Houses in Figure 1
Figure 1: A collection of different coats of arms from the book ‘A song of Ice and Fire’, created by dezzzart published on deviantart.com
Analysis
See Table 1 for top 10 characters with the most screen time
Screen time per Character
pacman:: p_load ("readr" ,"ggplot2" ,"dplyr" ,"ggrepel" ,"knitr" )
screentimes <- read_delim ("GOT_screentimes_1.csv" )
Rows: 191 Columns: 6
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (4): name, imdb_url, portrayed_by_name, portrayed_by_imdb_url
dbl (2): screentime, episodes
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
spc_tbl_ [191 × 6] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
$ name : chr [1:191] "Tyrion Lannister" "Jon Snow" "Daenerys Targaryen" "Cersei Lannister" ...
$ imdb_url : chr [1:191] "http://www.imdb.com/character/ch0146096/" "http://www.imdb.com/character/ch0155777/" "http://www.imdb.com/character/ch0158597/" "http://www.imdb.com/character/ch0159526/" ...
$ screentime : num [1:191] 293 268 221 201 199 ...
$ episodes : num [1:191] 54 49 49 52 47 47 43 39 37 42 ...
$ portrayed_by_name : chr [1:191] "Peter Dinklage" "Kit Harington" "Emilia Clarke" "Lena Headey" ...
$ portrayed_by_imdb_url: chr [1:191] "http://www.imdb.com/name/nm0227759/" "http://www.imdb.com/name/nm3229685/" "http://www.imdb.com/name/nm3592338/" "http://www.imdb.com/name/nm0372176/" ...
- attr(*, "spec")=
.. cols(
.. name = col_character(),
.. imdb_url = col_character(),
.. screentime = col_double(),
.. episodes = col_double(),
.. portrayed_by_name = col_character(),
.. portrayed_by_imdb_url = col_character()
.. )
- attr(*, "problems")=<externalptr>
name imdb_url screentime episodes
Length:191 Length:191 Min. : 1.150 Min. : 2.00
Class :character Class :character 1st Qu.: 4.375 1st Qu.: 4.00
Mode :character Mode :character Median : 10.300 Median : 7.50
Mean : 27.261 Mean :12.44
3rd Qu.: 27.650 3rd Qu.:17.00
Max. :293.300 Max. :54.00
NA's :15
portrayed_by_name portrayed_by_imdb_url
Length:191 Length:191
Class :character Class :character
Mode :character Mode :character
screentimes_high <- screentimes |> top_n (10 , screentime)
screentimes |>
ggplot (aes (screentime, episodes)) +
geom_point () +
geom_text_repel (data = screentimes_high,aes (label = name),min.segment.length = 0 )
Warning: Removed 15 rows containing missing values or values outside the scale range
(`geom_point()`).
screentimes_high |>
select (name,screentime,episodes) |>
kable ()
References
Laube, Patrick. 2014. Computational Movement Analysis . 2014th ed. SpringerBriefs in Computer Science. Cham: Springer International Publishing AG.